﻿Namespace Listados
    Public Class Prueba
        Dim _Pruebas As IPrueba

        Private Sub Prueba_OnLoadForm(ByRef reportCollection As Lincker.US.Listador.Reports) Handles Me.OnLoadForm
            Try
                'Crea los rangos
                Dim rangoFecha As New Rango(1, "fe_prueba", LnkDesdeHastaFecha1)

                'Crea los reportes con sus rangos
                Dim rpt As Report
                rpt = New Report(1, "WLprueba_fecha", "Lotes de Prueba x Fecha", _
                                  "wlprueba_fecha", "US.NewSolution.NewModule.Reports")
                rpt.Rangos.Add(rangoFecha)

                'Agrega los reportes a la colección 
                reportCollection.Add(rpt)

                'Referencia el objeto de negocios relacionado
                _Pruebas = CType(RemotingHelper.getObject(GetType(IPrueba)), IPrueba)
                Me.ObjetoReglasNegocio = _Pruebas

            Catch ex As Exception
                Lincker.US.Display.ShowError(Me.ToString.Substring(0, Me.ToString.IndexOf(",")), Common.Env.Operador, Common.Env.Terminal)
            End Try
        End Sub
    End Class
End Namespace
